home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed41.d64 / subtraction 2a (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  134 lines
  1. 100 POKE53280,0:POKE53281,0:POKE53272,23:Y=1:K=0:W=0:C=0:R=0
  2. 102 PRINT"[147][155]            [215][200][195][160][197]NTERPRISES            ":GOSUB290:GOSUB260
  3. 105 PRINT"[159]                                        [146]";
  4. 110 PRINT"                                        [146]";
  5. 115 PRINT"         [199][201][204][204][201][193][206]'[211] [194][193][211][201][195] [205][193][212][200]           [146]";
  6. 120 PRINT"[159]                                        [146]";:GOSUB291:GOSUB260
  7. 125 PRINT"             [211][213][194][212][210][193][195][212][201][207][206]                [146]";
  8. 130 PRINT"[159]                                        [146]";:GOSUB291:GOSUB260
  9. 135 PRINT"              [204][197][214][197][204]  2[193]                 [146]";
  10. 140 PRINT"[159]                                        [146]";
  11. 145 PRINT"                                        [146]"
  12. 150 GOSUB 291:GOSUB460
  13. 155 GOSUB320
  14. 160 PRINT"[147][158] [201]N THIS UNIT, WE PRACTISE SUBTRACTION":GOSUB260
  15. 165 PRINT" WITH MINUENDS FROM 11[158] TO 15[158] AND
  16. 170 [153]" SUBTRAHENDS FROM 0SYS TO 5SYS."
  17. 175 [141]291:[141]460
  18. 180 [153]"LOADSYS ATNND AWAY WE GO.............."
  19. 185 [141]291:[141]200:[141]290
  20. 190 [153]"LOAD":[141]291
  21. 195 [137]500
  22. 200 [143] <YES> SOUND
  23. 202 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  24. 204 [151]54296,15:[151]54277,42:[151]54278,250
  25. 206 [151]54276,23:[151]54273,23:[151]54272,191
  26. 208 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]250:[130]
  27. 210 [151]54296,0:[142]
  28. 220 [143] <NO> SOUND
  29. 222 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  30. 224 [151]54296,15:[151]54277,18:[151]54278,242
  31. 226 [151]54276,33:[151]54273,4:[151]54272,48
  32. 228 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  33. 230 [151]54296,0:[142]
  34. 240 [143] <BLIP> SOUND
  35. 242 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  36. 244 [151]54296,6:[151]54277,42:[151]54278,250
  37. 246 [151]54276,23:[151]54273,23:[151]54272,191
  38. 248 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  39. 250 [151]54296,0:[142]
  40. 260 [143] <DING> SOUND
  41. 262 SS[178]54272:[151]54296,15:[151]SS,50:[151]SS[170]1,35:[151]SS[170]2,0:[151]SS[170]3,8:[151]SS[170]5,0
  42. 264 [151]SS[170]6,10[172]16[170]9:[151]SS[170]4,14:[151]SS[170]4,65:[129]QQ[178]1[164]20:[151]SS[170]4,64:[142]
  43. 270 [143] <VERY WRONG> SOUND
  44. 272 SS[178]54272:[151]54296,15:[151]SS,32:[151]SS[170]1,3:[151]SS[170]2,128:[151]SS[170]3,13
  45. 274 [151]SS[170]5,4[172]16[170]0:[151]SS[170]6,10[172]16[170]8
  46. 276 [151]SS[170]24,15:[151]SS[170]4,65:[129]QQ[178]1[164]500:[130]:[151]SS[170]4,64:[142]
  47. 290 [129]TM[178]1[164]600:[130]:[142]
  48. 291 [129]TM[178]1[164]1000:[130]:[142]
  49. 292 [129]TM[178]1[164]2000:[130]:[142]
  50. 293 [129]TM[178]1[164]3000:[130]:[142]
  51. 300 [153]"LOAD":[141]290
  52. 302 [153]"LIST VALXERCISE 2ATN                    RIGHT$TEM"Y
  53. 305 [142]
  54. 310 [143]       PRINT"OPEN            ";A$"+OPEN";B$"="Z$
  55. 320 [153]"LOAD":[141]290:[142]
  56. 400 [151]53280,13:[141]290
  57. 402 [153]"PRINT                LEN(null)(null)(null)VALLEN(null)!                WAIT":[141]200:[141]292
  58. 404 [153]"ONON                                        "
  59. 410 [151]53280,0:[142]
  60. 420 [151]53280,2:[141]220:[141]291
  61. 423 [153]"DEF                   (null)(null)!                  WAIT":[141]291
  62. 425 [153]"ONON                (null)RY AGAIN.              ":[141]292:[141]240
  63. 430 [153]"ONON                                        ONON"
  64. 435 [153]"ONONON       ":[142]
  65. 440 [153]"LOAD":[141]270:[141]290:[151]53280,13
  66. 445 [153]"         >>>> PRINT";A$" - PRINT";B$" =PRINT ";C$" <<<<"
  67. 450 [141]260:[141]293:[141]460:[151]53280,0:[142]
  68. 460 [141]291:[141]240
  69. 462 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE       WAIT"
  70. 464 [161]R$:[139]R$[179][177][199](32)[167]464
  71. 466 [153]"ONON                                        ":[142]
  72. 500 [129]G[178]1[164]30
  73. 505 [129]I[178]1[164]3:[141]300:Y[178]Y[170]1:P[178]0:[151]53280,0
  74. 510 [135]A$,B$,C$
  75. 520 [153]"              ";A$" - ";B$" = ":[141]260
  76. 530 [153]"SYSON";:[133]Z$
  77. 540 [139]Z$[178]C$[167][141]400:[137]590
  78. 545 [139]P[178]1[167][141]440:W[178]W[170]1:[137]590
  79. 550 P[178]P[170]1:K[178]K[170]1:[141]420:[137]530
  80. 590 [130]G
  81. 600 [153]"LOAD      (null)(null)PEEK(null)(null)ATNLEN(null)RIGHT$(null)(null)CLOSE2ATN  (null)LEN(null)(null)VALCLOSEPEEK(null)ATN(null)STR$       WAIT"
  82. 605 D[178]K[171]W:R[178]D[170]W:C[178]30[171]R
  83. 610 [153]"PRINT  LENORRECT ON THE FIRST ATTEMPT ... "C:[141]200:[141]291
  84. 615 [153]"OPEN  LENORRECT ON THE SECOND ATTEMPT ..  "D:[141]220:[141]291
  85. 620 [153]"DEF  (null)ISSED COMPLETELY ..............  "W:[141]260:[141]293
  86. 625 [139]C[178]25[167][153]"            VAL(null)LENVAL(null)(null)VAL(null)(null)  (null)(null)(null)(null)!            WAIT"
  87. 630 [139]C[178]25[167][141]200:[141]292:[137]660
  88. 635 [139]C[178][177]23[167][153]"               CHR$OOD (null)ORK WAIT"
  89. 640 [139]C[178][177]23[167][141]200:[141]292:[137]660
  90. 650 [153]" >>>>> (null)OU NEED MORE PRACTICE.
  91. 655 PRINT" >>>>> [208]LEASE PLAY THIS GAME AGAIN."
  92. 660 GOSUB460
  93. 670 PRINT"[158][147]  [217]OU HAVE A CHOICE:                    ":GOSUB292
  94. 672 PRINT"  [208]RESS  [208] [146] TO PLAY GAME 2[193] AGAIN.
  95. 674 [153]"  (null)RESS  (null) WAIT TO RETURN TO DISK MENU,
  96. 676 GETR$:IFR$<>"P"ANDR$<>"[208]"ANDR$<>"M"ANDR$<>"[205]"THEN676
  97. 678 IFR$="P"THEN RESTORE:GOTO100
  98. 680 IFR$="[208]"THEN RESTORE:GOTO100
  99. 682 PRINT"[147] [210]ETURNING TO THE DISK MENU
  100. 684 [147]"MENU",8
  101. 686 [138]
  102. 688 [128]
  103. 1000 [131] "11","0","11"
  104. 1005 [131] "11","1","10"
  105. 1010 [131] "11","2","9"
  106. 1015 [131] "11","3","8"
  107. 1020 [131] "11","4","7"
  108. 1025 [131] "11","5","6"
  109. 1030 [131] "12","0","12"
  110. 1035 [131] "12","1","11"
  111. 1040 [131] "12","2","10"
  112. 1045 [131] "12","3","9"
  113. 1050 [131] "12","4","8"
  114. 1055 [131] "12","5","7"
  115. 1060 [131] "13","0","13"
  116. 1065 [131] "13","1","12"
  117. 1070 [131] "13","2","11"
  118. 1075 [131] "13","3","10"
  119. 1080 [131] "13","4","9"
  120. 1085 [131] "13","5","8"
  121. 1090 [131] "14","0","14"
  122. 1095 [131] "14","1","13"
  123. 1100 [131] "14","2","12"
  124. 1105 [131] "14","3","11"
  125. 1110 [131] "14","4","10"
  126. 1115 [131] "14","5","9"
  127. 1120 [131] "15","0","15"
  128. 1125 [131] "15","1","14"
  129. 1130 [131] "15","2","13"
  130. 1135 [131] "15","3","12"
  131. 1140 [131] "15","4","11"
  132. 1145 [131] "15","5","10"
  133. 2000 [143] WHC 92 07 31
  134.